<%
'将函数写在下面，并在入口文件中引入

'根据属性返回正确的SQL语句，主要作用是根据循环标签的属性构造完整的SQL
'getSql 是模板类调用的函数，如果没这个函数，那么循环赋值就完成不了工作了
'如果想改变这个函数的调用名称，搜索一下这个函数名
Function returnSql(labelName,attr)
'传参 说明
'labelName 标签名
'attr 标签的属性，字典对象：名=值
	Dim sql
	Select Case Lcase(labelName)
	Case "class"'
		Dim id
			id = attr("borderid")
			sql = "Select * From [class] Where typeid = " & id
	Case Else
		labelName = sql
	End Select
	returnSql = sql
End Function

'自定义字段数据输出
Function myclassdata(rs)
rs("bordername") = "<span style=""color:yellow;"">"&rs("bordername")&"</span>"
rs("taihom") = "我的字段赋值"

Set myclassdata = rs
End Function

%>